home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / HyperCard / Louie Toons / Louie Toons / background_2710.txt < prev    next >
Text File  |  1991-10-08  |  8KB  |  361 lines
  1. -- background: 2710 from stack: in
  2. -- bmap block id: 3172
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: page
  6. ----- HyperTalk script -----
  7. on arrowKey choice
  8.   if choice is "left" then
  9.     visual scroll right
  10.     pass arrowKey
  11.   else
  12.     if choice is "right" then
  13.       visual scroll left
  14.       pass arrowKey
  15.     end if
  16.   end if
  17. end arrowKey
  18.  
  19.  
  20.  
  21. -- part 34 (button)
  22. -- low flags: 00
  23. -- high flags: 0000
  24. -- rect: left=6 top=310 right=334 bottom=39
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 1011 / 1011
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Home Stack
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   visual dissolve
  36.   go "home"
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 35 (button)
  42. -- low flags: 00
  43. -- high flags: A003
  44. -- rect: left=243 top=308 right=327 bottom=331
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Cpy->Bkgnd
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   set cursor to watch
  56.   set lockScreen to true
  57.   choose select tool
  58.   drag from 5,25 to 503,302
  59.   doMenu "Copy Picture"
  60.   doMenu "Background"
  61.   doMenu "Paste Picture"
  62.   doMenu "Invert"
  63.   put the filled into oldFilled
  64.   put the pattern into oldPattern
  65.   set the filled to true
  66.   set the pattern to 16
  67.   choose rectangle tool
  68.   drag from 4,24 to 504,303
  69.   --another approach:
  70.   --doMenu "Background"
  71.   --push card
  72.   --go card "info"
  73.   --drag from 5,25 to 503,302
  74.   --doMenu "Copy Picture"
  75.   --pop card
  76.   --doMenu "Background"
  77.   --doMenu "Paste Picture"
  78.   doMenu "Transparent"
  79.   choose select tool
  80.   drag from 5,25 to 503,302
  81.   doMenu "Invert"
  82.   doMenu "Background"
  83.   choose browse tool
  84.   set the filled to oldFilled
  85.   set the pattern to oldPattern
  86.   set lockscreen to false
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 36 (button)
  92. -- low flags: 00
  93. -- high flags: A003
  94. -- rect: left=333 top=308 right=327 bottom=421
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Clear Bkgnd
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   set cursor to watch
  106.   set lockScreen to true
  107.   doMenu "Background"
  108.   choose select tool
  109.   drag from 5,25 to 503,302
  110.   doMenu "Clear Picture"
  111.   doMenu "Background"
  112.   choose browse tool
  113.   set lockScreen to false
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 37 (button)
  119. -- low flags: 00
  120. -- high flags: A003
  121. -- rect: left=155 top=308 right=327 bottom=241
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Add Page
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   doMenu "New Card"
  133.   put "(Press command-tab if you lose the Tools.)" into field "notes"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 38 (button)
  139. -- low flags: 00
  140. -- high flags: A003
  141. -- rect: left=67 top=308 right=327 bottom=153
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Show Tools
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   show tool window at 400,50
  153.   show background button "Hide Tools"
  154.   show background field "notes"
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 39 (button)
  160. -- low flags: 80
  161. -- high flags: A003
  162. -- rect: left=67 top=308 right=327 bottom=153
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Hide Tools
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   hide tool window
  174.   hide background button "Hide Tools"
  175.   hide background field "notes"
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 45 (field)
  181. -- low flags: 81
  182. -- high flags: 0002
  183. -- rect: left=122 top=328 right=341 bottom=382
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 4
  188. -- text size: 9
  189. -- style flags: 0
  190. -- line height: 12
  191. -- part name: notes
  192.  
  193.  
  194. -- part 46 (button)
  195. -- low flags: 00
  196. -- high flags: 0000
  197. -- rect: left=40 top=309 right=336 bottom=64
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 25002 / 25002
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: help
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   push card
  209.   go card "about louie toons"
  210.   repeat until the mouseClick
  211.   end repeat
  212.   pop card
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 47 (button)
  218. -- low flags: 00
  219. -- high flags: 0000
  220. -- rect: left=426 top=308 right=325 bottom=451
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 15420 / 15420
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: previous page
  229. ----- HyperTalk script -----
  230. on mouseDown
  231.   global alreadyPaged
  232.   put false into alreadyPaged
  233.   pass mouseDown
  234. end mouseDown
  235.  
  236. on mouseStillDown
  237.   global alreadyPaged
  238.   wait 10
  239.   visual effect scroll right
  240.   put true into alreadyPaged
  241.   go to previous card
  242. end mouseStillDown
  243.  
  244. on mouseUp
  245.   global alreadyPaged
  246.   if alreadyPaged is false then
  247.     visual effect scroll right
  248.     go to previous card
  249.   end if
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 48 (button)
  255. -- low flags: 00
  256. -- high flags: 2002
  257. -- rect: left=448 top=310 right=338 bottom=484
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 32670 / 32670
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: don't delete
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   put the ticks into originalTicks
  269.   put true into doubleClick
  270.   repeat until the mouseClick or doubleClick is false
  271.     if the ticks - originalTicks > 30 then put false into doubleClick
  272.   end repeat
  273.   go first card in this background
  274.   if doubleClick then
  275.     show (the number of cards in this background - 1) cards
  276.   else
  277.     repeat for the number of cards in this background - 1
  278.       wait 10
  279.       go next card
  280.     end repeat
  281.   end if
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 49 (button)
  287. -- low flags: 00
  288. -- high flags: 0000
  289. -- rect: left=481 top=308 right=325 bottom=506
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 16560 / 16560
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: next page
  298. ----- HyperTalk script -----
  299. on mouseDown
  300.   global alreadyPaged
  301.   put false into alreadyPaged
  302.   pass mouseDown
  303. end mouseDown
  304.  
  305. on mouseStillDown
  306.   global alreadyPaged
  307.   wait 10
  308.   visual effect scroll left
  309.   put true into alreadyPaged
  310.   go to next card
  311. end mouseStillDown
  312.  
  313. on mouseUp
  314.   global alreadyPaged
  315.   if alreadyPaged is false then
  316.     visual effect scroll left
  317.     go to next card
  318.   end if
  319. end mouseUp
  320.  
  321.  
  322.  
  323. -- part 52 (button)
  324. -- low flags: 00
  325. -- high flags: 0000
  326. -- rect: left=425 top=324 right=341 bottom=450
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 24317 / 24317
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: first page
  335. ----- HyperTalk script -----
  336. on mouseUp
  337.   visual iris open
  338.   go first card of this background
  339. end mouseUp
  340.  
  341.  
  342.  
  343. -- part 53 (button)
  344. -- low flags: 00
  345. -- high flags: 0000
  346. -- rect: left=482 top=324 right=341 bottom=507
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 29903 / 29903
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: last page
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   visual iris open
  358.   go last card of this background
  359. end mouseUp
  360.  
  361.